Application.ModelessCommand("S")
DlgModelessCmd.Command = "SO"
DlgModelessCmd.OnOk()
'Application.ExecuteCommand("Edit Delete Group")